library(tidyverse)
library(DeclareDesign)
library(rdss)

sims <- 2000
bootstrap_sims <- 2000

source("code/declarations/declaration_17.6_a.R")
source("code/declarations/declaration_17.6_b.R")

diagnosis_17.5 <-
  declaration_17.6 |>
  redesign(deceive = c(TRUE, FALSE)) |>
  diagnose_design(sims = sims, bootstrap_sims = bootstrap_sims) 

write_rds(diagnosis_17.5, file = "diagnosis_objects/diagnosis_17.5.rds")